home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / ddfade.lha / ...cd / The_Archives / programmers / silly.s
Encoding:
Text File  |  1980-04-06  |  586 b   |  38 lines
  1. *this is some silly code to fade the diskdrive light, NOT aga!
  2. *        Coded By Nzø/DCS
  3.     
  4.         Section    'Daft shit',code
  5.  
  6.         opt    c-,o+,p+
  7.  
  8. fadedriveup    move    #$200,d3
  9. fadeup        bsr.s    theshit
  10.         dbf     d3,fadeup
  11.         moveq    #0,d3
  12.         rts
  13.  
  14. fadedriveout    bsr.s    theshit
  15.         addq    #1,d3
  16.         cmp    #$200,d3
  17.         bne.s   fadedriveout
  18.         move.b    #$fd,(a2)
  19.         move.b    #$87,(a2)
  20.         move.b    #$fd,(a2)
  21.         rts
  22.  
  23. theshit        lea     $bfd100,a2
  24.         or.b    #$c0,(a2)
  25.         or.b    #$18,(a2)
  26.         and.b    #$e7,(a2)
  27.         move    d3,d4
  28. wait1        dbf    d4,wait1
  29.         and.b    #$3f,(a2)
  30.         or.b    #$18,(a2)
  31.         and.b    #$e7,(a2)
  32.         move    #$200,d4
  33.         sub    d3,d4
  34. wait2        dbf     d4,wait2
  35.         rts
  36.  
  37.  
  38.